home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
BUSINESS
/
D_SHOW20.ARJ
/
SHOW20A.EXE
/
PROMOTE1.SHW
< prev
next >
Wrap
Text File
|
1991-08-01
|
7KB
|
316 lines
***********************************************************************
* Sciptname..: PROMOTE1.SHW *
* Date.......: 1st. Aug. 1991, by RMP DATA. *
* Purpose....: Promotion for DATASHOW v. 2.0A, as an example script. *
***********************************************************************
* Other files involved:
* sound1.shw
* scroll1.shw
* promote1.gra, hugo1.gif * Graphic files
* entrance.snd, napoleon.snd * Music files
* show1.scr - show7.scr * Captured screen files
SET ESCAPE ON * Make sure script can be stopped any time
SET CURSOR ON * Make cursor visible at start
TIMEOUT 10 * Set seconds to wait for keyboard (WAITKEY)
VARIABLE counttimes 1 * Create variable to count number of runs
ATTRIBUTE 31 * Set to blue background, white forground
BACKGROUND 1 * Set the background to blue
FOREGROUND 15 * Set the foreground to white
CLEARSCREEN
DELAYFACTOR 5 * Have writing delayed, typewriter style
GOXY 10 4
WRITE "Welcome to a presentation of DATASHOW..."
SET CURSOR OFF
GOXY 10 10
LINE 60
GOXY 10 18
LINE 60
GOXY 1 12
SPEAK "W-E-L-L-K-U-M-E" * Talk via system speaker
SPEAK "T-OO D-A-TH-A-S-H-U-W"
DEFINE
/////// ////// /////// ////// /////// // // /////// // // //
// // // // // // // // // // // // // // //
// // //////// // //////// //////// //////// // // // // //
// // // // // // // // // // // // // // //
/////// // // // // // /////// // // /////// //////
ENDDEFINE
MOTION LEFT 0 * Move the defined area across screen
WAIT 1
MOTION RIGHT 79
WAIT 2
SHOWSCREEN "show1.scr" * Show screen saved with CAPTURE
MUSIC PROCESS "entrance.snd"
WAIT 1
SET CURSOR ON
BACKGROUND 3 * Set the background to cyan
CLEARSCREEN
GOXY 1 20
WINDOW 79 4
BACKGROUND 7
CLEARSCREEN
GOXY 1 1
WINDOW 79 24
ATTRIBUTE 63 * Set to cyan background, white forground
GOXY 6 2
BOX 70 14
GOXY 10 4
WRITE "Together with the resident program CAPTURE, you can create pre-"
GOXY 10 6
WRITE "sentations fast and easy. You CAPTURE screens from programs and"
GOXY 10 8
WRITE "show them from DATASHOW like this screen to be shown here......"
WAIT 2
GETSCREEN * Save the current screen to a buffer
SET CURSOR OFF
SHOWSCREEN "show2.scr" * Show screen saved with CAPTURE
WAIT 2
SPEAK "C-A-P-T-U-R-E"
WAIT 1
SPEAK "AE"
SPEAK "S-K-R-EE-EE-N"
WAIT 2
SET CURSOR ON
PUTSCREEN * Retrieve saved screen from the buffer
GOXY 10 10
WRITE "It is a simple task to create scripts and have them shown on"
GOXY 10 12
WRITE "the screen with encredible flexibility. Scripts are ordinary"
GOXY 10 14
WRITE "ASCII files. Here the easy method to make scripts is shown..."
SPEAK "P-U-S-H"
WAIT 1
SPEAK "A-N-I"
WAIT 1
SPEAK "K-E-I"
GOXY 10 20
WAIT "Push any key" * Wait for any key to be pushed or TIMEOUT secs
SET CURSOR OFF
SHOWSCREEN "show3.scr" * Show screen saved with CAPTURE
WAIT 4
SHOWSCREEN "show4.scr" * Show screen saved with CAPTURE
WAIT 4
SHOWSCREEN "show5.scr" * Show screen saved with CAPTURE
WAIT 4
SET TEXTSOUND ON
BACKGROUND 4 * Set the background to red
CLEARSCREEN
GOXY 10 4
WRITE "You can Also write your scripts to a printer!"
WAIT 3
SHOWSCREEN "show6.scr" * Show screen saved with CAPTURE
WAIT 2
BACKGROUND 3 * Set the background to cyan
GOXY 13 5
WRITE "PROMOTE1.SHW"
WAIT 3
SET TEXTSOUND OFF
DELAYFACTOR 0
CLEARSCREEN
GOXY 10 10
BOX 32 2
GOXY 11 11
WRITE "You can create single sounds..."
VARIABLE controlloop 1 * Create variable to control loops
MARK 1 * Create a mark that can be jumped to
VARIABLE soundloop 1 * Create variable to control sound
DO "sound1.shw" * Call another (sub) program
RELEASE soundloop * Clean up after us, for next time round
SCROLL DOWN
IFVARIABLE controlloop 3 DO JUMPMARK 2
INCREASE controlloop 1
JUMPMARK 1
MARK 2 * Create a mark that can be jumped to
RELEASE controlloop * Clean up after us, for next time round
WAIT 1
GOXY 20 8
WRITE "Or play songs, that you write yourself!"
GOXY 20 9
LINE 38
MUSIC PROCESS "napoleon.snd"
WAIT 1
BACKGROUND 2 * Set the background to green
CLEARSCREEN
GOXY 10 8
WRITE "Besides this you can control a lot of things yourself. You can"
GOXY 10 10
WRITE "draw your own pictures or devellop your own logo in DATASHOW."
GOXY 10 12
WRITE "For this purpose there is a menu for graphic drawing..."
WAIT 6
SHOWSCREEN "show7.scr" * Show screen saved with CAPTURE
WAIT 4
DELAYFACTOR 5
GOXY 26 12
WINDOW 50 5
CLEARSCREEN
FOREGROUND 1
GOXY 26 12
ATTRIBUTE 47 * Set to green background, white forground
BOX 50 5
GOXY 3 3
WRITE "By selecting F4 you can draw your own drawings,"
GOXY 3 4
WRITE "and then display them from a script like this.."
WAIT 4
GOXY 1 1
WINDOW 79 24
GRAPHICS "promote1.gra" GRA
CLEARSCREEN
GOXY 10 10
WRITE "You can also show GRAPHICs created from other programs."
GOXY 10 12
WRITE "Here DataShow display a screen saved in the PCX format -"
GOXY 10 14
WRITE "saved from e.g. the program PaintBrush (TM)."
WAIT 4
GRAPHICS "chess.pcx" PCX
CLEARSCREEN
GOXY 10 10
WRITE "AND here DataShow display a screen saved in the GIF"
GOXY 10 12
WRITE "format; made by CompuServe; with a wealth of files."
WAIT 4
GRAPHICS "hugo1.gif" GIF
SET GRAPHICS ON
BACKGROUND 1
FOREGROUND 12
CLEARSCREEN
DELAYFACTOR 4
GOXY 5 8
WRITE "NEW in DataShow scripts:"
GOXY 5 12
WRITE "Now you can also stay in graphics mode"
GOXY 5 16
WRITE "- and most commands work as in text mode!"
WAIT 3
BACKGROUND 6
FOREGROUND 14
CLEARSCREEN
GOXY 10 5
WRITE "Remember to register DataShow. You'll then recieve:"
WAIT 2
DELAYFACTOR 0
FOREGROUND 11
GOXY 12 9
WRITE "- A Runtime version called RUNSHOW for distribution of scripts"
WAIT 3
GOXY 12 11
WRITE "- A Manual that can be printed on a printer for overview"
WAIT 3
GOXY 12 13
WRITE "- A Utility package for making more music files"
WAIT 3
GOXY 12 15
WRITE "- And more music and graphics files"
WAIT 3
FOREGROUND 14
GOXY 10 19
WRITE "See the READ.ME ascii file for further information!"
WAIT 4
SET GRAPHICS OFF
DO "scroll1.shw" * Call another (sub) program
FOREGROUND 15
GOXY 1 10
WRITE "This was run number: "
GOXY 22 10
WRITE counttimes
SPEAK counttimes
WAIT 1
SPEAK "T-I-M-E-S"
WAIT 1
GOXY 10 13
WRITE "Now this presentation starts over again, but you can stop it at"
GOXY 10 15
WRITE "any time you wish by pressing the escape key. Then in DATASHOW"
GOXY 10 17
WRITE "you can try all the marvelous things yourself! Just type SHOW"
GOXY 10 19
WRITE "at the operating system prompt, and you can try out DataShow."
WAIT 1
GOXY 10 22
WRITE "That's all folks"
SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
WAIT 8
SET CURSOR ON
INCREASE counttimes 1
CONTINUE